Require disp-table.

(latin1-display): Fix :set.

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 639457d8fdfa8706fa4007d02973a9bff29395b1..4f644eda725288d0cda740c0c9996b0911e8093e 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -47,6 +47,9 @@
 
 ;;; Code:
 
+;; Ensure `standard-display-table' is set up:
+(require 'disp-table)
+
 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8
                                latin-9 cyrillic greek hebrew)
   "The ISO8859 character sets with defined Latin-1 display sequences.
@@ -82,11 +85,12 @@ use either M-x customize of the function `latin1-display'."
   :require 'latin1-disp
   :initialize 'custom-initialize-default
   :set (lambda (symbol value)
-        (if value
-            (mapc (if value
-                      #'latin1-display-setup
-                    #'latin1-display-reset)
-                  latin1-display-sets))))
+        (set-default symbol value)
+        (mapc (if value
+                  #'latin1-display-setup
+                #'latin1-display-reset)
+              latin1-display-sets)
+        (redraw-display)))
 
 ;;;###autoload
 (defun latin1-display (&rest sets)